r vlisp
*(library gos)
*(library dmos)
*(library can)
*(library data)
*(output ''(dskm (rmi . lst)))
*(m-i a b c d)
*a
*b
*c
*d
*(equal (append (append a b) c) (append a (append b c)))
*a
*b
*d
*(length a)
*a
*(length b)
*b
*(setq c (append a b))
*(length c)
*c
*(setq d (append b a))
*(equal (length c) (length d))
*a
*b
*c
*d
*nil
*(output)
*(print "le fichier s'appelle rmi")
*(stop)